home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / TELECOM / HELL / LOGOUT.SCR < prev    next >
Encoding:
Text File  |  1995-09-27  |  575 b   |  33 lines
  1. fileprint "LOGOUT.ANS"
  2.  
  3. textcolor 6
  4. textstatus 1
  5.  
  6. set text,"                              T H E  R I G H T  J O I C E  !!"
  7. set show,mid(text,1,30)
  8.  
  9. set pos,30
  10. set sopos,-9999
  11. set scount,0
  12. repeat
  13.  set spos,int(sin(scount)*25+37)
  14.  if sopos<>-9999
  15.   cursorpos sopos,22
  16.   send "   "
  17.  endif
  18.  cursorpos spos,22
  19.  send "TMC"
  20.  set sopos,spos
  21.  set scount,scount+pi/20
  22.  if scount>2*pi
  23.   set scount,0
  24.  endif
  25.  cursorpos 25,24
  26.  send show
  27.  inc pos
  28.  if pos>len(text)
  29.   set pos,1
  30.  endif
  31.  set show,right(show,len(show)-1)+mid(text,pos,1)
  32.  scan key
  33. until key<>""